home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
printing
/
printque.arc
/
STOP_PRT.S
< prev
next >
Wrap
Text File
|
1987-04-26
|
1KB
|
35 lines
; . . .
;
; PRINT STOP for the Atari ST rev - 4/25/87
; Copyright (C) 1987 by Wayne S. Arczynski
; All rights reserved
; Equates
trap13: equ $B4 ; Bios trap vector location
; __________________________
Even ; get on even address
start:
lea stack,SP ; set stack pointer
clr.l -(SP) ; use our SP
move.w #$20,-(SP) ; goto SUPERVISOR mode
trap #1
addq.l #6,SP
SUPER: move.l trap13,A0 ; get ptr to inque
cmp.l #'WsA0',-4(A0) ; Check test
bne.s done ; PRTSPL installed?
add.l -8(A0),A0 ; Yes. Point A0 at bfr ptr's
clr.l (A0) ; Stop print
done: move.l D0,-(SP) ; Old SSP
move.w #$20,-(SP) ; leave SUPERVISOR mode
trap #1
addq.l #6,SP
clr.w -(SP) ; Terminate & free memory
trap #1 ; call gem
stlow: dc.w 0 ; bottom of stack
stack: equ stlow+1024 ; 1k stack